Plotly Plots

library(plotly)
library(RColorBrewer)
library(ggplot2)

head(iris)

plot_ly(data=iris, x=~Sepal.Length, y=~Petal.Length, mode='markers')

No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plotly.com/r/reference/#scatter
No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plotly.com/r/reference/#scatter

## rgba --> red, green, blue, alpha
plot_ly(data=iris, x=~Sepal.Length, y=~Petal.Length, mode='markers', 
        marker=list(size=10, color='rgba(255,170,190,.9)'))

No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plotly.com/r/reference/#scatter
No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plotly.com/r/reference/#scatter

plot_ly(data=iris, x=~Sepal.Length, y=~Petal.Length, mode='markers', 
        marker=list(
            size=10, color='rgba(255,100,100,.9)',
            line = list(color='rgba(200,0,0,0.9)',width=2)
            )
        )

No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plotly.com/r/reference/#scatter
No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plotly.com/r/reference/#scatter

---
title: "Plotly Plots"

Error in -title : invalid argument to unary operator

library(plotly)

head(iris)

plot_ly(data=iris, x=~Sepal.Length, y=~Petal.Length, mode='markers')

## rgba --> red, green, blue, alpha
plot_ly(data=iris, x=~Sepal.Length, y=~Petal.Length, mode='markers', 
        marker=list(size=10, color='rgba(255,170,190,.9)'))

par(mar=c(3,4,1,1))
display.brewer.all(
)

plot_ly(data=iris, x=~Sepal.Length, y=~Petal.Length, mode='markers', color=~Species, colors='Set1')

No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plotly.com/r/reference/#scatter
No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plotly.com/r/reference/#scatter

col = c("red", "blue", "green")
plot_ly(data=iris, x=~Sepal.Length, y=~Petal.Length, mode='markers', color=~Species, colors=col)

No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plotly.com/r/reference/#scatter
No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plotly.com/r/reference/#scatter

## Now virginica->red, setosa->blue, versicolor->green
col = c("red", "blue", "green")
col = setNames(col, c("virginica", "setosa", "versicolor"))
plot_ly(data=iris, x=~Sepal.Length, y=~Petal.Length, mode='markers', color=~Species, colors=col)

No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plotly.com/r/reference/#scatter
No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plotly.com/r/reference/#scatter

## Now virginica->red, setosa->blue, versicolor->green
col = c("red", "blue", "green")
col = setNames(col, c("virginica", "setosa", "versicolor"))
plot_ly(
        data=iris, x=~Sepal.Length, y=~Petal.Length, mode='markers', 
        color=~Species, colors=col, 
        symbol=~Species, symbols=c('circle', 'x', 'pentagon')
      )

No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plotly.com/r/reference/#scatter
No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plotly.com/r/reference/#scatter

col = c("red", "blue", "green")
col = setNames(col, c("virginica", "setosa", "versicolor"))
plot_ly(
        data=iris, x=~Sepal.Length, y=~Petal.Length, mode='markers', marker=list(size=10),
        text=~paste("Sepal-Width : ",Sepal.Width,"Petal-Width : ",Petal.Width),
        color=~Species, colors=col, 
        symbol=~Species, symbols=c('circle', 'x', 'pentagon')
      )

No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plotly.com/r/reference/#scatter
No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plotly.com/r/reference/#scatter

day = c(1:30)
num = rnorm(n=30, mean=3)
df = data.frame(day, num)

head(df)

Line Plot

plot_ly(df, x=~day, y=~num, type='scatter')

No scatter mode specifed:
  Setting the mode to markers
  Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode
No scatter mode specifed:
  Setting the mode to markers
  Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode

plot_ly(df, x=~day, y=~num, type='scatter', mode='lines')

plot_ly(df, x=~day, y=~num, type='scatter', mode='lines')

plot_ly(df, x=~day, y=~num, type='scatter', mode='lines+markers', line=list(color='red', width=2))

ggplot to plotly plot

fruits = c("apple", "banana", "orange")
count_c = c(200,150,300)
count_b = c(100,250,150)

df1 = data.frame(fruits, count_c, count_b)
head(df1)

Bar-Graph

plot_ly(df1, x=~fruits, y=~count_c, type='bar')

p = plot_ly(df1, x=~fruits, y=~count_c, type='bar', name='location-1')
p%>%add_trace(y=count_b, name='location-2')

using add_trace

p = plot_ly(df1, x=~fruits, y=~count_c, type='bar', name='location-1')
p%>%add_trace(y=count_b, name='location-2')